home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d26 / mathpack.arc / FLOW.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-05-08  |  3.4 KB  |  93 lines
  1. 10  LOCATE 1,1,0
  2. 20  KEY OFF
  3. 30  CLS
  4. 40  CLEAR
  5. 50  WIDTH 80
  6. 60  LOCATE 1,1,0
  7. 70  SCREEN 0,0,0
  8. 80  COLOR 7,0
  9. 90  LOCATE 2,20:COLOR 15:PRINT "F L O W  O F  M A T H  P A K  D I S K":COLOR 7,0
  10. 100  A$ = STRING$(20,196)
  11. 110  LOCATE 5,5:PRINT A$:LOCATE 5,40:PRINT A$
  12. 120  LOCATE 5,5:PRINT CHR$(218):LOCATE 5,40: PRINT CHR$(218):LOCATE 5,25:PRINT CHR$(191):LOCATE 5,60:PRINT CHR$(191)
  13. 130  FOR A = 6 TO 10:LOCATE A,5:PRINT CHR$(179):NEXT A
  14. 140  FOR A = 6 TO 10:LOCATE A,25:PRINT CHR$(179):NEXT A
  15. 150  FOR A = 6 TO 10:LOCATE A,40:PRINT CHR$(179):NEXT A
  16. 160  FOR A = 6 TO 10:LOCATE A,60:PRINT CHR$(179):NEXT A
  17. 170  LOCATE 10,5:PRINT A$:LOCATE 10,40:PRINT A$
  18. 180  LOCATE 10,5:PRINT CHR$(192):LOCATE 10,40:PRINT CHR$(192)
  19. 190  LOCATE 10,25:PRINT CHR$(217):LOCATE 10,60:PRINT CHR$(217)
  20. 200  LOCATE 15,20:PRINT A$:LOCATE 18,20:PRINT A$
  21. 210  LOCATE 15,20:PRINT CHR$(218):LOCATE 15,40:PRINT CHR$(191):LOCATE 18,20:PRINT CHR$(192):LOCATE 18,40:PRINT CHR$(217)
  22. 220  FOR A = 16 TO 17:LOCATE A,20:PRINT CHR$(179):LOCATE A,40:PRINT CHR$(179):NEXT A
  23. 230  LOCATE 7,8:PRINT "T U T O R I A L":LOCATE 6,45:PRINT "M A I N"
  24. 240  LOCATE 8,8:PRINT "S E C T I O N":LOCATE 7,45:PRINT "P R O G R A M/"
  25. 250  LOCATE 8,45:PRINT "M E N U"
  26. 260  LOCATE 16,22:PRINT "E N D / E X I T"
  27. 270  COLOR 7,0
  28. 280  FOR A = 26 TO 39:LOCATE 7,A:PRINT CHR$(196):NEXT A:LOCATE 7,39:PRINT CHR$(16):LOCATE 7,25:PRINT CHR$(195)
  29. 290  FOR A = 11 TO 16:LOCATE A,16:PRINT CHR$(179):LOCATE 11,49:PRINT CHR$(179):NEXT A:LOCATE 11,16:PRINT CHR$(179):LOCATE 10,16:PRINT CHR$(194):LOCATE 10,49:PRINT CHR$(194)
  30. 300  LOCATE 12,49:PRINT CHR$(193):COLOR 7,0:GOSUB 870
  31. 310  LOCATE 14,49:PRINT CHR$(194):LOCATE 15,49:PRINT CHR$(179):LOCATE 16,49:PRINT CHR$(217)
  32. 320  FOR A = 16 TO 19:LOCATE 16,A:PRINT CHR$(196):NEXT A:FOR A = 48 TO 41 STEP -1:LOCATE 16,A:PRINT CHR$(196):NEXT A
  33. 330  LOCATE 16,16:PRINT CHR$(192):LOCATE 16,49:PRINT CHR$(217)
  34. 340  LOCATE 16,19:PRINT CHR$(196):LOCATE 16,20:PRINT CHR$(180):LOCATE 16,41:PRINT CHR$(17)
  35. 350  LOCATE 21,6:PRINT "PRESS THE ":LOCATE 21,16:COLOR 0,7:PRINT " S P A C E  B A R ":COLOR 7,0:LOCATE 21,35:PRINT "UNTIL  THE CORRECT BOX IS FLASHING,":LOCATE 22,16:PRINT " THEN PRESS THE":LOCATE 22,32:COLOR 0,7:PRINT " RETURN ":COLOR 7,0
  36. 360  LOCATE 22,41:PRINT "KEY":COLOR 7,0
  37. 370  KE1$= INKEY$
  38. 380  GOSUB 620
  39. 390  IF KE1$ = CHR$(13) THEN CLS:CHAIN "A"
  40. 400  IF KE1$ = CHR$(32) THEN GOSUB 710:GOTO 420
  41. 410  GOTO 370
  42. 420  GOTO 430
  43. 430  KE2$= INKEY$
  44. 440  GOSUB 650
  45. 450  IF KE2$ =CHR$(13) THEN CLS:CHAIN"MPK"
  46. 460  IF KE2$ = CHR$(32) THEN GOSUB 740:GOTO 480
  47. 470  GOTO 430
  48. 480  COLOR 7,0:GOTO 490
  49. 490  KE3$ = INKEY$
  50. 500  GOSUB 800:COLOR 7,0
  51. 510  COLOR 7,0:LOCATE 12,49:PRINT CHR$(193):LOCATE 14,49:PRINT CHR$(194):COLOR 7,0
  52. 520  IF KE3$ = CHR$(13) THEN CLS:CHAIN"COMPLEX"
  53. 530  IF KE3$ = CHR$(32) THEN GOSUB 870:GOTO 550
  54. 540  GOTO 490
  55. 550  GOTO 560
  56. 560  KE4$=INKEY$
  57. 570  GOSUB 680
  58. 580  IF KE4$=CHR$(13) THEN CLS:SYSTEM
  59. 590  IF KE4$ = CHR$(32) THEN GOSUB 770:GOTO 370
  60. 600  GOTO 560
  61. 610  GOTO 370
  62. 620  REM subroutine to create a flashing square at 5,5
  63. 630  LOCATE 5,5:COLOR 31:PRINT CHR$(218):LOCATE 5,25:PRINT CHR$(191):LOCATE 10,5:PRINT CHR$(192):LOCATE 10,25:PRINT CHR$(217):COLOR 7,0
  64. 640  RETURN
  65. 650  REM this creates a flashing square at 5,40
  66. 660  LOCATE 5,40:COLOR 31:PRINT CHR$(218):LOCATE 5,60:PRINT CHR$(191):LOCATE 10,40:PRINT CHR$(192):LOCATE 10,60:PRINT CHR$(217):COLOR 7,0
  67. 670  RETURN
  68. 680  REM this subroutine will create a  square at 15,20
  69. 690  LOCATE 15,20:COLOR 31:PRINT CHR$(218):LOCATE 15,40:PRINT CHR$(191):LOCATE 18,20:PRINT CHR$(192):LOCATE 18,40:PRINT CHR$(217):COLOR 7,0
  70. 700  RETURN
  71. 710  REM subroutine to create a  square at 5,5
  72. 720  LOCATE 5,5:COLOR 7,0:PRINT CHR$(218):LOCATE 5,25:PRINT CHR$(191):LOCATE 10,5:PRINT CHR$(192):LOCATE 10,25:PRINT CHR$(217):COLOR 7,0
  73. 730  RETURN
  74. 740  REM this creates a  square at 5,40
  75. 750  LOCATE 5,40:COLOR 7,0:PRINT CHR$(218):LOCATE 5,60:PRINT CHR$(191):LOCATE 10,40:PRINT CHR$(192):LOCATE 10,60:PRINT CHR$(217):COLOR 7,0
  76. 760  RETURN
  77. 770  REM this subroutine will create a  square at 15,20
  78. 780  LOCATE 15,20:COLOR 7,0:PRINT CHR$(218):LOCATE 15,40:PRINT CHR$(191):LOCATE 18,20:PRINT CHR$(192):LOCATE 18,40:PRINT CHR$(217):COLOR 7,0
  79. 790  RETURN
  80. 800  REM this subroutine will create a  square at 12,40
  81. 810  COLOR 7,0:LOCATE 12,49:PRINT CHR$(193):LOCATE 14,49:PRINT CHR$(194):COLOR 7,0
  82. 820  LOCATE 12,40:COLOR 31:PRINT CHR$(218):LOCATE 12,60:PRINT CHR$(191):LOCATE 14,40:PRINT CHR$(192):LOCATE 14,60:PRINT CHR$(217):COLOR 7,0
  83. 830  COLOR 7,0: LOCATE 13,40:PRINT CHR$(179):LOCATE 13,60:PRINT CHR$(179):A$=STRING$(19,196):LOCATE 12,41:PRINT A$:LOCATE 14,41:PRINT A$:COLOR 7,0:LOCATE 12,49:PRINT CHR$(193):LOCATE 14,49:PRINT CHR$(194):COLOR 7,0
  84. 840  V$=STRING$(8,196):LOCATE 12,41:PRINT V$:LOCATE 12,50:PRINT V$:LOCATE 14,41:PRINT V$:LOCATE 14,50:PRINT V$:LOCATE 12,49:PRINT CHR$(193):LOCATE 14,49:PRINT CHR$(194)
  85. 850  LOCATE 13,41:PRINT "  OTHER FUNCTIONS"
  86. 860  RETURN
  87. 870  REM this subroutine will create a  square at 12,40
  88. 880  LOCATE 12,40:COLOR 7,0:PRINT CHR$(218):LOCATE 12,60:PRINT CHR$(191):LOCATE 14,40:PRINT CHR$(192):LOCATE 14,60:PRINT CHR$(217):COLOR 7,0
  89. 890  LOCATE 13,40:PRINT CHR$(179):LOCATE 13,60:PRINT CHR$(179):A$=STRING$(19,196):LOCATE 12,41:PRINT A$:LOCATE 14,41:PRINT A$
  90. 900  LOCATE 13,41:PRINT "  OTHER FUNCTIONS"
  91. 910  COLOR 7,0:LOCATE 12,49:PRINT CHR$(193):LOCATE 14,49:PRINT CHR$(194):COLOR 7,0
  92. 920  RETURN
  93.